home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / FILEDESC.ICL < prev    next >
Encoding:
Text File  |  1990-09-15  |  1.4 KB  |  42 lines
  1. (* 'FileDesc.Icl' *)
  2.  
  3. TYPE FileDesc = RECORD
  4.               (* Dieses RECORD befindet sich in Files, Text, Binary, FileBase *)
  5.               state: INTEGER; (* muß immer am Anfang des Records bleiben ! *)
  6.               pos: LONGCARD;
  7.               len: LONGCARD;
  8.               CASE ondisk: BOOLEAN OF
  9.                 TRUE:
  10.                   new: BOOLEAN;
  11.                   handle: INTEGER;
  12.                   modified: BOOLEAN|
  13.                 FALSE:
  14.                   unit: Unit;
  15.                   ucons: BOOLEAN;
  16.                   uwrite: UDataProc;
  17.                   uwrstr: UWStrProc;
  18.                   uread: UDataProc;
  19.                   urdchr: UGChrProc;
  20.                   uclose: UCloseProc;
  21.                   uflush: UFlushProc;
  22.                   uecho: BOOLEAN;
  23.                   uhandle: LONGWORD
  24.               END;
  25.               accmode: Access;
  26.               buffer: ADDRESS;   (* nur bei readSeqTxt *)
  27.               bufsize: CARDINAL; (* nur bei readSeqTxt *)
  28.               bufpos: CARDINAL;  (* nur bei readSeqTxt *)
  29.               getlast: BOOLEAN;
  30.               lastch: CHAR;
  31.               prevch: CHAR;
  32.               eof: BOOLEAN;
  33.               eol: BOOLEAN;
  34.               chkeof: BOOLEAN;
  35.               eofchr: CHAR;
  36.               skipLF: BOOLEAN;
  37.               name: ARRAY [0..139] OF CHAR;
  38.               modlevel: INTEGER
  39.             END;
  40.  
  41. (* End of 'FileDesc.Icl' *)
  42.